home *** CD-ROM | disk | FTP | other *** search
/ Resource Library: Multimedia / Resource Library: Multimedia.iso / hypercrd / xcmds / applshrc.hqx / AppleShare Chooser 2.3 / stack_-1.xml < prev   
Extensible Markup Language  |  1992-12-16  |  2KB  |  22 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in.3</name>
  5.     <id>-1</id>
  6.     <cardCount>2</cardCount>
  7.     <cardID>4649</cardID>
  8.     <listID>4099</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>512</width>
  14.         <height>342</height>
  15.     </cardSize>
  16.     <script>on openstackglobal AutoMountgo cd "Menu"put (optionKey() = "up" and not (visible of bg btn "Edit Script")) ┬¼into AutoMountif AutoMount then send MountVolumes to this cdend openstackon fixrepeat with i = 1 to number of fldsshow fld iend repeatend fixon developshow bg btn "Edit Script"show bg btn "Version"end developon releasehide bg btn "Edit Script"hide bg btn "Version"end releaseon void xend void-- ScrollLineClickedfunction ScrollLineClicked topMarginreturn (round((the scroll of the target / the textHeight of the target) ┬¼+  (((the clickV - top of the target - topMargin) ┬¼div the textHeight of the target) + 1)))end ScrollLineClicked-- List and Line Handlingfunction ToList linsput empty into listrepeat with i = 1 to number of lines in linsput line i of lins & "," after listend repeatreturn listend ToList┬⌐ 1989-1992 John Glauert, UEA Norwich, UK.XCMD from Apple</script>
  17.     <background id="3084" file="background_3084.xml" name="Enter Password" />
  18.     <background id="4417" file="background_4417.xml" name="Index" />
  19.     <card id="4649" file="card_4649.xml" marked="false" name="Menu" owner="4417" />
  20.     <card id="3478" file="card_3478.xml" marked="false" name="AskPassword" owner="3084" />
  21. </stack>
  22.